home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pbc_bas.exe / EXTRACT.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-01-01  |  1005 b   |  30 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |        PBClone  Copyright (c) 1990-1993  Thomas G. Hanlin III        |
  4. '   |                                                                      |
  5. '   +----------------------------------------------------------------------+
  6.  
  7. SUB Extract (St$, Delimiter$, Index%, Start%, SLen%)
  8.    Ind% = Index%
  9.    IF LEN(Delimiter$) > 0 AND Index% > 0 THEN
  10.       Start% = 1
  11.       DO
  12.          tmp% = INSTR(Start%, St$, Delimiter$)
  13.          Ind% = Ind% - 1
  14.          IF Ind% = 0 THEN
  15.             IF tmp% THEN
  16.                SLen% = tmp% - Start%
  17.             ELSE
  18.                SLen% = LEN(St$) - Start% + 1
  19.             END IF
  20.          ELSEIF tmp% = 0 THEN
  21.             SLen% = 0
  22.          ELSE
  23.             Start% = tmp% + LEN(Delimiter$)
  24.          END IF
  25.       LOOP UNTIL tmp% = 0 OR Ind% = 0
  26.    ELSE
  27.       SLen% = -1
  28.    END IF
  29. END SUB
  30.